(* Trouver les comptes du client *)

let l = [("Don",435.);("Nut",75.);("Toto",42.)] ;;

let compare a b =
  match a with
      a when a>b -> 1
    | a when a=b -> 0
    |_ -> -1 ;;

let rec find nom lis =
  match lis with 
      [] -> failwith "La liste ne contient pas ce nom"
    | (n,e) :: lis when nom=n -> e
    | (n,e):: lis -> find nom lis;;
      
find "Toto" l;;

(* 3.2 Ajouterun client *)
